home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / excard / ggt.mod < prev    next >
Encoding:
Text File  |  1994-09-22  |  756 b   |  37 lines
  1. MODULE ggT;
  2.  
  3. FROM InOut IMPORT WriteString,WriteLn,Write,Read,ReadCard;
  4.  
  5. FROM ExFunc IMPORT ExggT;
  6.  
  7. FROM Excard IMPORT ExCard,ExWrite,ExRead;
  8.  
  9. VAR n   : CARDINAL;
  10.     ch  : CHAR;
  11.     a,b,ggt : ExCard;
  12.     
  13. BEGIN 
  14.   Write(CHR(27));
  15.   Write('E');  (* clear screen *)
  16.   Write(CHR(27));
  17.   Write('e');  (* cursor on *)
  18.   REPEAT
  19.     WriteLn;
  20.     WriteString(' Zu welchen Zahlen soll der ggT bestimmt werden ?');
  21.     WriteLn;
  22.     WriteString(' 1. Zahl eingeben.');
  23.     ExRead(a);
  24.     WriteLn;
  25.     WriteString(' 2. Zahl eingeben.');
  26.     ExRead(b);
  27.     WriteLn;
  28.     ExggT(ggt,a,b);
  29.     WriteString(' ggT = ');
  30.     ExWrite(ggt);
  31.     WriteLn;
  32.     WriteString(' Weiter y/n ?');
  33.     Read(ch);
  34.   UNTIL (ch='n') OR (ch='N');
  35. END ggT.
  36.  
  37.